#this script reads datafrom a file and calculates CPU service demand
data <- read.table('./lab7data', skip=3)
u <- mean(data[,'V11'])
myFunc <- function(u){
d <- (100 - u) / 60
return(d)
}
